Intro

Add intro text later

Interactive map of responses

Responses by economic region

tm_shape(map_and_data)+
  tm_polygons("count", 
              id="ERNAME", 
              palette="Blues", 
              alpha=0.5, 
              legend.show=TRUE, 
              popup.vars=c("Economic Region"="ERNAME","Province"="prov","Count of responses"="count"))

Notes